home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / diskutil / gemar220.lzh / GEMAR220 / PLUGIN / SOURCE / RUMPF.M < prev    next >
Encoding:
Text File  |  1994-02-12  |  2.6 KB  |  80 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*-                                                                                                                                             -*)
  3. (*-     Name                        : Rumpf                                                                                         -*)
  4. (*-     Version                 : 1.000                                                                                         -*)
  5. (*-     Art                         : Module                                                                                        -*)
  6. (*-     Aufgabe                 : PlugIn für GEMAR                                                                    -*)
  7. (*-     Autor                     : Steffen Engel                                             (C) 93                -*)
  8. (*-     Letzte Änderung : 27.10.1993, 12:35:52                                                            -*)
  9. (*-                                                                                                                                             -*)
  10. (*-------------------------------------------------------------------------*)
  11. (*-------------------------------------------------------------------------*)
  12. (*-                                                                                                                                             -*)
  13. (*- Beschreibung    :                                                                                                             -*)
  14. (*-                                                                                                                                             -*)
  15. (*-                                                                                                                                             -*)
  16. (*-                                                                                                                                             -*)
  17. (*-------------------------------------------------------------------------*)
  18. (*-------------------------------------------------------------------------*)
  19. (*-                                                                                                                                             -*)
  20. (*-     History                                                                                                                         -*)
  21. (*-                                                                                                                                             -*)
  22. (*-                                                                                                                                             -*)
  23. (*-     Vers | Datum        | Beschreibung                                                                            -*)
  24. (*-  ------|----------|---------------------------------------                        -*)
  25. (*-              |                    |                                                                                                     -*)
  26. (*-              |                    |                                                                                                     -*)
  27. (*-                                                                                                                                             -*)
  28. (*-                                                                                                                                             -*)
  29. (*-                                                                                                                                             -*)
  30. (*-------------------------------------------------------------------------*)
  31. MODULE Rumpf;
  32.  
  33. IMPORT SYSTEM, CPX;
  34.  
  35.  
  36. (* Magic-Lib *)
  37. FROM MagicSys     IMPORT
  38.                                 (* Const *) Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5,
  39.                                                         Bit6, Bit7, Bit8, Bit9, Bit10, Bit11, Bit12,
  40.                                                         Bit13, Bit14, Bit15,
  41.                                 (* Type  *) LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  42.                                                         sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  43.  
  44. IMPORT void;
  45.  
  46. IMPORT PlugParms;
  47.  
  48.  
  49. VAR PlugEnv : PlugParms.tpPlugEnvironment;
  50.  
  51.  
  52. (*$K+ $E+ *)
  53. PROCEDURE CallPlug(parm : SYSTEM.ADDRESS) : LONGINT;
  54.  
  55.     BEGIN
  56.  
  57.         void.I := PlugEnv^.Alert(1, '[1][PlugIn: Aufruf][Aha]');
  58.  
  59.         RETURN 0;
  60.     END CallPlug;
  61. (*$K= $E+ *)
  62.  
  63.  
  64.  
  65.  
  66. BEGIN
  67.  
  68.     PlugEnv := PlugParms.tpPlugEnvironment(CPX.pXCPB);
  69.  
  70.     IF PlugEnv^.Version < 0100H
  71.         THEN
  72.             void.I := PlugEnv^.Alert(1, '[3][PlugIn: Fehlerhafte Parameterversion][Aha]');
  73.             CPX.Return(NIL);
  74.         ELSE
  75.             void.I := PlugEnv^.Alert(1, '[3][PlugIn: Installiert][Aha]');
  76.             CPX.Return(SYSTEM.ADDRESS(CallPlug));
  77.         END;
  78.  
  79. END Rumpf.
  80.         
  81.     
  82.